<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>46</cardCount>
<cardID>2934</cardID>
<listID>11008</listID>
<cantModify><true /></cantModify>
<cantDelete><true /></cantDelete>
<cantAbort><true /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on openStackset userLevel to 1global volput the long name of this stack into fName-- eg: stack "MyHD:SomeFolder:Catalog"delete char 1 to 8 of fName -- stack "delete last char of fName -- "put ExtractVolName(fName) into volpass openStackend openStackfunction ExtractFileName FileNameput ":" into Delimiterif Delimiter is in FileName thenrepeat with CharPos = length(FileName) down to 1if char CharPos of FileName = Delimiterthen return char CharPos+1 to length(FileName) of FileNameend repeatreturn emptyelsereturn FileNameend ifend ExtractFileNamefunction ExtractVolName FileNameput ":" into Delimiterif Delimiter is in FileName thenrepeat with CharPos = length(FileName) down to 1if char CharPos of FileName = Delimiterthen return char 1 to CharPos of FileNameend repeatreturn emptyelsereturn emptyend ifend ExtractVolNameon allClipQTPict clipTo,"0,0,512,342"end allClipon closeStackallclipend closestack</script>
